module timing

use basic_var

contains

subroutine time(t)

real(myk), intent(out) :: t
integer :: time_array(8)

call date_and_time(values=time_array)
!t = 86400.*time_array(4)+3600.*time_array(5)+60.*time_array(6)+time_array(7)+time_array(8)/1000.
t = 3600.*time_array(5)+60.*time_array(6)+time_array(7)+time_array(8)/1000.

end subroutine time

end module timing

